(rmail-get-summary-labels): Treat empty labels as null.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index eb20272135373ee9e7afa6e4a646357ae2bd9234..5c250039c303d694bd05db5e9e20d1794dbbf621 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -426,7 +426,9 @@ Returns nil if there are no labels.  The current buffer must
 already be narrowed to the message headers for the message being
 processed."
   (let ((labels (mail-fetch-field rmail-keyword-header)))
-    (if labels (format "{ %s } " labels))))
+    (and labels
+        (not (string-equal labels ""))
+        (format "{ %s } " labels))))
 
 (defun rmail-create-summary (msgnum deleted unseen lines)
   "Return the summary line for message MSGNUM.